home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / programmierung / proasm / rexx / dopus / dopus2edge.dopus < prev    next >
Text File  |  1996-04-29  |  614b  |  34 lines
  1. /* Load DOpus selected files into the Edge */
  2. /* 03.01.94 by Daniel Weber                */
  3.  
  4. OPTIONS RESULTS
  5.  
  6. status 3                /* get #of active window     */
  7. win = result
  8. status 13 win                /* get actual selected drive */
  9. path = result
  10. getselectedfiles '+'
  11. IF RC ~= 0 THEN EXIT(0)
  12. files = result
  13.  
  14.  
  15. DO WHILE files ~=''
  16.   ADDRESS 'EDGE'
  17.   PARSE VAR files txtfile '+' files
  18.  
  19.   getenvvar _ge_errlevel
  20.   errlevel = result
  21.   New
  22.   SELECT
  23.      WHEN RC == 0 THEN DO
  24.        ADDRESS value result
  25.        open path''txtfile
  26.        END
  27.      WHEN RC >= 0 THEN DO
  28.        fault
  29.        requestnotify '"'result'"'
  30.        END
  31. END
  32. EXIT(0)
  33.  
  34.